<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Configuration" %>

<script runat="server">
    Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
        Dim DBCon As SqlConnection
        Dim Command As SqlCommand = New SqlCommand()
        Dim ASyncResult As IAsyncResult

        DBCon = New SqlConnection()
        Command = New SqlCommand()
        DBCon.ConnectionString = ConfigurationManager.ConnectionStrings("DSN_NorthWind").ConnectionString

        ' Pobranie pierwszych piciu rekordw z tabeli Orders
        Command.CommandText = 
                "SELECT TOP 5 Customers.CompanyName, Customers.ContactName, " & 
                "Orders.OrderID, Orders.OrderDate, " & 
                "Orders.RequiredDate, Orders.ShippedDate " & 
                "FROM Orders, Customers " & 
                "WHERE Orders.CustomerID = Customers.CustomerID " & 
                "ORDER BY Customers.CompanyName, Customers.ContactName"

        Command.CommandType = CommandType.Text
        Command.Connection = DBCon

        DBCon.Open()

        ' Rozpoczcie procesu asynchronicznego
        AsyncResult = Command.BeginExecuteReader(New _
           AsyncCallback(AddressOf CBMethod), CommandBehavior.CloseConnection)
    End Sub

    Public Sub CBMethod(ByVal ar As SQLAsyncResult)
        Dim OrdersReader As SqlDataReader

        ' Pobranie wynikw z asynchronicznego procesu
        OrdersReader = ar.EndExecuteReader(ar)

        ' Wywietlenie wynikw na ekranie        
        gvOrders.DataSource = OrdersReader
        gvOrders.DataBind()
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Technika funkcji zwrotnych</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <asp:GridView ID="gvOrders" Width="100%" AutoGenerateColumns="False"         
     runat="server">
       <Columns>
          <asp:BoundField HeaderText="Nazwa firmy" 
           DataField="CompanyName"></asp:BoundField>
          <asp:BoundField HeaderText="Kontakt" 
           DataField="ContactName"></asp:BoundField>
          <asp:BoundField HeaderText="Data zamwienia" DataField="orderdate" 
           DataFormatString="{0:d}"></asp:BoundField>
          <asp:BoundField HeaderText="Wymagana data dostawy" DataField="requireddate" 
           DataFormatString="{0:d}"></asp:BoundField>
          <asp:BoundField HeaderText="Data dostawy" DataField="shippeddate" 
           DataFormatString="{0:d}"></asp:BoundField>
       </Columns>
    </asp:GridView> 
    </div>
    </form>
</body>
</html>
